home *** CD-ROM | disk | FTP | other *** search
/ HamCall (October 1991) / HamCall (Whitehall Publishing)(1991).bin / bcast / audvid / preemph.bas < prev    next >
BASIC Source File  |  1990-10-14  |  3KB  |  98 lines
  1. 5 REM ******************** M. RING 12/18/84 **************************
  2. 10 REM SAVE "PRE-PLOT.BAS"
  3. 20 CLS
  4. 30 DATA 50,100,400,1000,5000,10000,15000
  5. 40 DATA -4,-3,-2.9,-2,5.4,10,12
  6. 50 DATA 0,0,.1,1,8.2,13.7,17
  7. 60 DIM V(7),A(7),U(7),L(7),T(7)
  8. 70 REM****************** GET FREQUENCIES AND LIMITS ******************
  9. 80     FOR N=1 TO 7
  10. 90      READ A(N)
  11. 100     NEXT N
  12. 110      FOR N=1 TO 7
  13. 120      READ L(N)
  14. 130     NEXT N
  15. 140      FOR N=1 TO 7
  16. 150       READ U(N)
  17. 160      NEXT N
  18. 170 LET INC=0:LET TRIM=0
  19. 180 REM************************* GET DATA *************************
  20. 190     FOR N=1 TO 7
  21. 200     PRINT "TYPE IN GENERATOR OUTPUT FOR";A(N);
  22. 210     INPUT "HERTZ ";V(N)
  23. 220     PRINT
  24. 230     REM COLOR N,0
  25. 240     NEXT N
  26. 250 COLOR 7,0
  27. 260 LET INC=(-1*V(4))
  28. 270 INPUT "DO YOU WANT PEAK, AVERAGE, OR BOTH  P OR A OR B";A$
  29. 280 IF A$="P" THEN GOTO 570
  30. 290 IF A$="A" THEN GOTO 310
  31. 300 IF A$="B" THEN GOTO 310
  32. 310 REM *********************** SET RESPONSE-AVERAGE **************
  33. 320 LET TRIM=-2:LET TRIAL=12:LET C=0:PRINT "       AVERAGE "
  34. 330     LET T(4)=V(4)-INC
  35. 340     FOR N=1 TO 7
  36. 350     LET T(N)=V(N)-V(4)-TRIM
  37. 360     NEXT N
  38. 370 REM *********************** CALCULATE TRIM **********************
  39. 380     FOR N=1 TO 7
  40. 390     LET A=ABS(L(N)+T(N))
  41. 400     LET B=ABS(U(N)+T(N))
  42. 410     IF B>A THEN GOTO 440  :REM*******CALC WORST DEVIATION *******
  43. 420     LET FIT=A
  44. 430     GOTO 450
  45. 440     LET FIT=B
  46. 450     LET AVERAGE=AVERAGE+FIT
  47. 460     NEXT N
  48. 470     IF TRIAL<AVERAGE/7 THEN GOTO 510
  49. 480     LET TRIM=TRIM +.1
  50. 490     LET TRIAL=AVERAGE/7:LET FIT=0:LET AVERAGE=0
  51. 500 GOTO 330
  52. 510 REM ********************** PRINT DATA **************************
  53. 520     FOR N=1 TO 7
  54. 530 PRINT
  55. 540     PRINT USING "##### HERTZ= ##.#"; A(N);-1*(T(N))
  56. 550     NEXT N
  57. 560 GOTO 760
  58. 570 REM *********************** SET RESPONSE -PEAK ****************
  59. 580 LET C=1:IF A$<>"B" THEN GOTO 600
  60. 590 INPUT "PRESS RETURN TO CONTINUE...";ANS$
  61. 600 LET TRIM=-2:LET TRIAL=12:PRINT "        PEAK"
  62. 610    LET T(4)=V(4)-INC
  63. 620    FOR N=1 TO 7
  64. 630    LET T(N)=V(N)-V(4)-TRIM
  65. 640    NEXT N
  66. 650 REM *********************** CALCULATE TRIM **********************
  67. 660    FOR N=1 TO 7
  68. 670    LET A=ABS(L(N)+T(N))
  69. 680    LET B=ABS(U(N)+T(N))
  70. 690    IF A>FIT THEN LET FIT=A :REM*******CALC WORST DEVIATION *******
  71. 700    IF B>FIT THEN LET FIT=B :REM*******CALC WORST DEVIATION *******
  72. 710    NEXT N
  73. 720    IF TRIAL<FIT THEN GOTO 510
  74. 730    LET TRIM=TRIM +.1
  75. 740    LET TRIAL=FIT:LET FIT=0
  76. 750 GOTO 610
  77. 760 REM ************************ CHECK LIMITS *************************
  78. 770 FOR N=1 TO 7
  79. 780     IF (-1*T(N))<L(N) GOTO 820
  80. 790     IF (-1*T(N))>U(N) GOTO 820
  81. 800    NEXT N
  82. 810    GOTO 840
  83. 820    PRINT "OUT OF TOLERANCE AT";A(N);"HERTZ"
  84. 830 GOTO 800
  85. 840 IF A$="B" AND C<>1 THEN GOTO 570
  86. 850 END
  87. 860 ' THIS PROGRAM ENABLES "EASY" CURVE FITTING OF FM/TV 75 MICROSECOND
  88. 870 ' AUDIO RESPONSE CURVES. IT USES EITHER OF TWO METHODS. THE AVERAGE
  89. 880 ' METHOD IS USUALLY BEST, BUT IF YOU HAVE A PEAK IN YOUR CURVE, THE
  90. 890 ' PEAK METHOD IS BETTER. OF THE  METHODS. THE AVERAGE
  91. 880 ' METHOD IS USUALLY BEST, BUT IF YOU HAVE A PEAK IN YOUR CURVE, THE
  92. 890 ' PEAK METHOD WORKS WELL.
  93. 900 ' FROM M RING
  94. 910 ' WTNY
  95. 920 ' 134 MULLIN ST.
  96. 930 ' WATERTOWN, NY 13601
  97. 940 ' 315/788-0790
  98. xxxxxxxx